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EDITORIAL 


En moins d'un mois, Hewlett-Packard a annoncé trois nouvelles machines 
portables : le HP100LX (dont nous avons parlé dans le précédent JPC), la 
HP48G/GX et l'OmniBook 300 que nous vous présentons dans ce numéro. Ces 
trois petites merveilles prenant une avance certaine par rapport à la concurence, 
les équipes de développeurs de Corvallis vont-elles s'endormir sur leurs 
lauriers ? Ou alors (puisqu'elles ont terminé leur travail pratiquement en même 
temps), vont-elles s’allier sur un projet commun ? On peut toujours rêver. 


Parlons de ce numéro maintenant. Suite à l’article Libres Propos de Christophe 
Vaillant, paru le mois dernier, Robert Pulluard (le très estimable éditeur de 
l'excellente revue 48SXtant) a jugé bon de continuer le débat en apportant ses 
propres réflexions. Nous ne pouvons que l’en féliciter. Rappelez vous que la 
rubrique À Propos du Club est aussi prévue pour vous permettre de vous 
exprimer. Maintenant que ce débat est ouvert, nous ne pouvons qu’espérer qu’il 
va continuer. Pour notre part, nous essayerons de ne pas intervenir dans la 
discussion, mais tenterons bien sûr de tenir compte de vos observations. 


Ce mois-ci, la rubrique MS-DOS remplace celle du HP95. Quelle est la 
différence me direz-vous ? Aucune, si ce n’est une petite astuce visant à 
encourager les utilisateurs de HP48 à la lire ! En effet, le programme qui y est 
présenté a bien été écrit pour les utilisateurs de HP95 (avec une taille tenant 
compte de l’exiguité de son disque interne), mais il devrait en fait être plus utilisé 
par les utilsateurs de HP48, qui manipulent des petits fichiers MS-DOS et 
doivent souvent les copier sur disquette ! 


Avant de terminer cet éditorial, laissez nous corriger une petite erreur parue 
dans le dernier numéro. En effet, nous avons mal orthographié le nom du 
responsable du Support Technique HP. Que Bernard Challiol, puisque c’est de 
lui qu’il s’agit, nous en excuse... 
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UN PC A LA PLACE 
D'UN LIVRE ? 


Baptisée OmniBook 300, ce nouvel ordinateur 
inaugure, pour HP en tous cas, le marché des 
Subnotebooks, c’est à dire des portables dont le poids 
est compris entre un et deux kilos. A priori, cette 
machine n’entrant pas dans les activités du club, nous 
pourrions ne pas en parler. Cependant, certains 
adhérents semblant être intéressés, j'en ferais un 
simple résumé. Notez que n’ayant vu la machine 
qu’en photo, je base cet article sur des documents que 
ma fourni Hewlett-Packard, complétés par des 
informations parues dans la presse étrangère. 


Bien qu’étant largement plus grand que le HP95, le 
HP300 reprend exactement son design. A un tel point 
qu’une photo de la machine fermée nécessite une 
observation attentive pour savoir de quel ordinateur il 
s’agit ! 


Une fois ouvert, les différences apparaissent au 
premier coup d’oeil. Tout d’abord le clavier est du 
même type que pour les Notebooks actuellement 
commercialisés, sans pavé numérique séparé. D’autre 
part, l'écran occupe toute la hauteur du volet 
rabattable. 


Alors que le HP95 ne contient qu’un port PCMCIA, 
le HP300 en contient quatre. Utilisant la version 2.0, 
ils peuvent accueillir des cartes de type II et IL Un 
des ports est occupé à l’origine par la ROM 
contenant les applications internes. Ceci permettra de 
faciliter les mises à jour. Les autres ports peuvent être 
utilisés pour les mémoires de masse, tels qu’un disque 
dur de 40 Mo (au format type III, donc occupant 2 
ports). 


Les applications incluses en Rom sont : MS-DOS 5.0, 
Windows 3.1, le traitement de texte Word pour 
Windows 2.0c, le tableur Excel 4.0, l'utilitaire de 
transfert Laplink Remote Access permettant de 
faciliter les échanges de fichiers entre PC, ainsi que 
certaines applications connues des utilisateurs du 
HP95 : répertoire téléphonique, agenda, calculatrice 
financière. Toutes ces applications sont du type XIP, 
c’est à dire qu’elles sont exécutées directement à 
partir de la ROM, sans être chargées en RAM. Ceci 
permet de conserver le maximum de la mémoire vive 
pour les données. Comme pour le HP95, une série de 
touches spéciales permettent d’accéder à toutes ces 
applications. 


Mais la grande innovation de la machine concerne la 
souris. Au repos, elle est placée dans un logement sur 


le côté droit de l'ordinateur. Pour l'utiliser, il suffit de 
l'éjecter en appuyant sur un bouton prévu à cet effet. 
Elle reste alors solidaire de l'ordinateur par une 
courte tige rigide transmettant ses mouvements 
directement à l'ordinateur (un peu à la manière d’un 
pantographe). Il est donc possible de s’en servir 
debout (à condition de faire attention), sans qu’elle 
soit en contact direct avec une table ! La tige contient 
bien sûr les cablages nécassaires à la détection des 
appuis sur les deux boutons dont elle est équipée. 


Autres caractéristiques techniques : 


- Microprocesseur : 386 SXLV à 20 Mhz. 

- RAM : 2 Mo extensible à 8 Mo. 

- Entres/Sorties : Port série 9 broches, port parallèle 
25 broches, port Infrarouge à 115 kb. 

- Port spécifique pour une carte Fax/Modem, livrée 
en option. 

- Affichage : écran 9 pouces, VGA 640x480, 16 
niveaux de gris. 

- Alimentation : Accus NiMH de 4.8V ou 4 piles 1.5V. 
Autonomie : jusqu’à 10 heures, suivant la mémoire de 
masse utilisée. 

- Dimensions (fermé) : 26.2x16.3x3.6 cm. 

- Poids : 1.27 Kg. 


L'OmniBook est livré en trois versions : Sans 
mémoire de masse, avec une carte Flash PCMCIA de 
10 Mo, ou avec un disque dur PCMCIA de 42 Mo. 
Les prix avoisinent les 10000 F.HT. pour la version 
nue, et 15000 F.HT. pour la version avec disque dur. 


Jacques Belin (123) 














LIBRES PROPOS 
(ROUND II) 


L’article Libre Propos de Christophe Vaillant dans 
JPC No.86 m’a vivement intéressé (ainsi que les 
réponses de Jacques Belin), et je crois que d’autres 
avis ou réponses sur les questions posées par 
Christophe peuvent alimenter une discussion 
particulièrement enrichissante au sein du club dont je 
pense que c’est l’un des rôles fondamentaux, autant 
que de transmettre et disséminer l'information brute 
à ses membres. Je vous propose donc mes propres 
réflexions sur certaines (pas toutes) des questions 
posées ou soulevées par Christophe Vaillant, en les 
reprenant dans l’ordre de son article. 


- En ce qui concerne HEX, cette association de clubs 
européenne ne fonctionne actuellement qu’au niveau 
des échanges de journaux ou bulletins entre clubs, et 
encore uniquement dans la mesure où les contacts 
entre ces clubs sont pris au niveau individuel. Autant 
dire que jusqu'ici HEX ne sert pas à grand chose. J’en 
suis d’autant plus désolé que j'en étais l’initiateur et 
que mon projet prévoyait une collaboration plus 
étroite entre les clubs tout en respectant 
l'indépendance et la spécificité de chacun. Il ne m’a 
hélas pas été possible de mener ce projet à son terme 
et d’autres ont repris le flambeau... dont la flamme 
mériterait bien d’être ranimée. Ceci dit, il est 
évidemment possible de reprendre et surtout de 
traduire des articles parus dans les bulletins d’autres 
clubs participant à HEX. J'insiste sur l'aspect 
"traduction": d’une part parce que je ne considère pas 
très loyal de reprendre un article (en anglais par 
exemple) tel quel, aussi bien à l'égard du club dont il 
est originaire, qu’envers les membres de PPC-Paris 
qui, s'ils désirent lire ces articles dans leur langue 
d’origine, pourraient tout aussi bien s’adresser aux 
clubs en question. D’autre part parce qu’il faut bien 
être conscient, comme le souligne d’ailleurs Jacques 
Belin, que traduire un article n’est pas plus facile que 
d’en écrire un soi-même (le rôle des traducteurs est 
trop souvent sous-estimé et leur travail négligé). 
Quoiqu'il en soit, et je réponds ici à Jacques, bien que 
n'étant pas moi-même un professionnel en la matière 
(mais j'ai une bonne expérience), je suis tout à fait 
disposé à traduire occasionnellement des articles pour 
JPC, notamment à partir du néerlandais ou de 
l'allemand (à partir de langlais aussi, certes, mais je 
pense que cette langue pose beaucoup moins de 
problème pour trouver des traducteurs). Je 
terminerai sur ce point en précisant qu’il serait 
regrettable que JPC publie des articles en anglais ou 
toute autre langue que le français (quoique. un 
article en basque ou en breton, pourquoi pas?). Non 





pas que je sois anglophobe (ceux qui me connaissent 
pourront témoigner du contraire!) mais parce que je 
considère que chaque club, et pas seulement JPC ou 
tout autre club français, doit conserver son identité 
propre et que la culture qui le berce, notamment la 
langue, doit être respectée : c’est l’une des idées 
maîtresses de HEX. 


- Les horaires de réunions du club ne sont sans doute 
pas idéaux, mais je rejoins ici entièrement Jacques 
Belin. Il n’est certes pas toujours facile à un membre 
habitant la province d’y assister, mais pour ceux qui le 
désirent vraiment cela devrait tout de même être 
possible ne serait-ce qu’occasionnellement. A vrai 
dire, je voudrais simplement apporter de l’eau au 
moulin de Jacques en précisant qu’il est possible 
d’assister aux réunions même lorsqu'on habite 
l'étranger, qui plus est un pays non limitrophe de la 
France : les Pays-Bas dans mon cas précis. Certes, je 
nai participé qu’à deux réunions depuis le début de 
l’année, mais c’est tout de même mieux que rien : à 
titre indicatif, il me faut 5 heures à 5 heures 30 en 
train pour me rendre à Paris, c’est-à-dire 
sensiblement la même chose que pour faire 
Toulon-Paris par TGV. Et il y a un petit hôtel sympa 
et confortable à deux pas du centre Jean Verdier : 
sans faire de pub pour cet hôtel, Jacques pourrait 
peut-être tout de même utiliser cet atout pour inciter 
davantage de membres qui habitent loin de Paris à 
venir assister aux réunions de temps à autre... 


- L'avenir du club : si je partage le sentiment de 
Christophe sur le fait que la PASSION est nécessaire, 
je ne suis par contre pas d'accord avec son 
argumentation ni avec certains symptomes qu’il 
décrit. Je voudrais donc, sans préjuger qui, de lui ou 
de moi, a raison (sans doute un peu tous les deux), 
apporter mon grain de sel à cette discussion, en 
espérant que d’autres membres viendront y ajouter 
leur voix. 


Les gens préfèrent consommer des programmes plutôt 
qu'en faire, c'est une constatation entièrement 
d'accord, mais j'ai supprimé dans ma citation le 
aujourd'hui que Christophe avait placé en tête de sa 
phrase. Parce qu’à mon avis il n’est pas pertinent. 
C'était tout aussi vrai autrefois, à l’époque "héroïque", 
que cela lest aujourd’hui. La différence c’est 
qu’autrefois (il y a dix ans, une éternité!) la 
micro-informatique en était à ses balbutiements : il 
fallait tout inventer soi-même ou presque, d’où un 
vaste élan d’enthousiasme et de créativité. Le "vaste" 
est peut-être trop fort car, si on regarde de plus près, 
que doit-on constater d’un point de vue "historique" ? 
Les clubs de cette époque étaient essentiellement 
animés par un tout petit groupe de PASSIONNÉS. 
Quand ces passionnés, pour l’une ou l’autre raison, 
cessèrent leurs activités, les clubs se sont effondrés: 
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Richard Nelson et PPC; Jean-Daniel Dodin et 
PPC-Toulouse. Dans quelques rares cas un autre 
passionné a pu prendre la relève (Wlodek 
Mier-Jedrzejowicz qui prit la succession de David 
Burch pour HPCC en Grande Bretagne). Ou alors, 
on retrouve toujours les mêmes passionnés, dix ans 
après: Gerlof Donga à la tête de Prompt aux 
Pays-Bas. (je ne donne ici qu’un ou deux exemples 
dans chaque cas, qu'on ne me reproche pas des 
“oublis"!) Bien sûr, il y avait, comme il y a encore 
aujourd’hui, un petit nuage de membres très actifs 
dans ces clubs. Mais la grande majorité des membres, 
autrefois comme maintenant, se contente de 
consommer. 


La HP-41 avait l'avantage d’être accessible par son 
pr : oh que non! Elle était plus chère en francs 
d'époque que ne l’est la HP48SX aujourd’hui, et en 
francs constants cela représente plus du double de ce 
que coûte la 48SX! Je n’ai pas les chiffres exacts en 
tête (c’est vieux, tout ça!), mais la HP-41C coûtait 
dans les 3000 FF, et il fallait débourser plus de 4000 
FF pour la 41-CX. Même à ses débuts la HP48SX n’a 
jamais été aussi chère! 


Qui connaît les 2100 fonctions de la HP48 ? : trois 
personnes, Bill Wickes, Joseph Horn et Jean-Michel 
Ferrard... Plus sérieusement, il n’est nullement besoin 
de connaître toutes les fonctions de la HP48 pour 
pouvoir lutiliser intelligemment et efficacement. Qui 
ne se sent pas ridicule devant les programmes faits par 
des professionnels. : là je ne suis plus du tout 
d’accord avec Christophe. A-t-il acheté ou utilisé ces 
fameuses cartes "professionnelles" dont il parle ? 
Dans bien des cas ce sont les pros qui devraient se 
sentir ridicules de nous proposer un "produit" souvent 
affligeant ! Certaines cartes qui nous viennent du 
nord sont franchement nulles, quant aux cartes de 
Sparcom, les "professionnels" par excellence, elles 
comportent bien des défauts et les “amateurs” peuvent 
et font nettement mieux. Certes, il y a quelques cartes 
pour HP48 qui tiennent la route, mais il y a des 
logiciels amateur qui surclassent ce que font les pros, 
y compris HP. On trouve cela en particulier (mais pas 
uniquement) sur les fameux "Goodies disks” de Joe 
Horn, disponibles pour une bouchée de pain. Un seul 
exemple parmi tant d’autres: les excellents utilitaires 
de Detlef Mueller sur le No8 (que Christophe 
analyse par ailleurs dans un autre article). Non, et là 
je suis catégorique, il ne faut avoir aucun complexe! 
En tant qu’amateur il est encore tout à fait possible 
de contribuer fort honorablement à la construction de 
l'édifice: il suffit d’avoir des idées, de la persévérance 
et la détermination. Un détail: des trois noms cités 
“au hasard" au début de ce paragraphe, seul Bill 
Wickes est un "professionnel"; Joe Horn tout autant 
que Jean-Michel Ferrard sont enseignants et 
“amateurs”. Mais passionnés ! 


Une dernière remarque, concernant le parallélisme 
avec le monde des PC: je ne crois pas qu’une telle 
comparaison soit appropriée. Le "monde des PC" est 
complètement verrouillé par les professionnels depuis 
qu'IBM s'en est mêlé. Et à la question "qui 
aujourd’hui fait un programme seul?" je répondrai 
(fort égocentriquement) : moi. Car les monstres pour 
PC que nous proposent les pros, non seulement sont 
aujourd’hui d’un niveau de prix qui frôle l’absurdité, 
mais ils atteignent des tailles démentielles qui ne se 
justifient souvent pas, et de plus ils ne font 
pratiquement jamais ce que l’on veut: il faut trop 
souvent se plier aux caprices d’un employé 
programmeur pressé de coder quelques lignes avant 
de rentrer chez lui, ou aux raccommodages ad hoc 
entre modules incompatibles conçus par des "équipes 
entières" indépendantes et à la limite de la 
compétence. Il ne s’agit évidemment pas de réécrire 
Wordperfect ou un compilateur C++, mais il y a de 
nombreuses applications (surtout personnelles) pour 
lesquelles un programme idoine modeste peut être 
conçu et écrit en quelques soirées, fournissant la 
solution optimale. 


Pour conclure j'ajouterai simplement que la 
micro-informatique style PC est devenue une affaire 
de gros sous qui a totalement écrasé l’amateurisme 
(surtout au niveau de la distribution des programmes; 
les revues spécialisées en sont en grande partie 
responsables: devenues toutes, ou presque, plus nulles 
les unes que les autres, ce ne sont plus que des 
catalogues publicitaires s'adressant surtout aux 
consommateurs professionnels). Qu’à cela ne tienne: 
il nous reste les calculatrices de poche, et surtout les 
HP, permettant encore à tous les véritables 
passionnés de laisser fleurir leur créativité 
insubmersible. La masse des consommateurs de 
programmes? elle est utile et elle a son rôle à jouer. Il 
ne faut pas la dénigrer, ni la mépriser et surtout pas la 
rejeter. S'il n’y a que deux passionnés, cela suffit à 
faire un club. 


Robert Pulluard (561) 
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PI ET FRACTIONS 


Voici une petite astuce créant la fonction -ax bien 
connue des utilisateurs de HP48. 


On prend le programme -FR?, du livre Voyage au 
centre de la HP28, on le modifie et on le 
renomme ?-Qr. Pensez à garder -FR? dans la mémoire 
de votre HP28 pour une utilisation autre qu'avec 1. 
Voici la marche à suivre : 


1- Entrez donc le sous-programme suivant : 


+ mr 
NT A / NUM 2-+FR 7 * 


» 
1-Q7' STO 


2- Avec la copie de ?-FR mis dans la pile, faire EDIT et 
remplacer tous les -FRAC par -ar. Nommer le nouveau 
programme ”?-Qr et le tour est joué. 


Exemple d'utilisation : 


Faire : # 1.2 * puis -NUM. Puis, lancer 7-07. Ceci 


donne : ’6/5*x qui est sensiblement équivalent à 
3.7699. 


Edmond Dougados 





BINOMES ET NEWTON 


Ce programme permet le développement du binôme 
de Newton. 


Mode d'emploi : 


- Entrer les valeurs a, b, et n dans la pile, puis lancer 
le programme DEvL. 


Exemple : 
ds At 
2: #8" 
3: 2 
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suivi de DEvL donnera "a2+2eb+b?" au bout de 3 a 4 
secondes. Mais on peut faire la même chose en 
prenant ’A' ’B’ 100... Si vous avez SPEED, alors là, c’est 
le fin du fin ! Imaginez ce travail à la main, sans la 
moindre erreur ! 


Listing : 


1FIX-abn 
« 
#POLY.* 0 ‘bc’ STO STO -1n 
FOR t 
t EVAL T’ STO 
IF-1t= 
THEN 
0 ’T' sTo 
END 
bc ’n-T’ EVAL DUP ‘bc’ STO 
IFTO> 
THEN 
* DUP "bc' STO 
END 
T 1+ “ABX' STO 
IFt-1== 
THEN 
n/ 
ELSE 
ABX ! / 
END 
IFt- 
THEN 
1 Zr2-570 
ELSE 
& EVAL 2 + #r STO 
END 
fa*(n-r#1)' EVAL ‘b"(r+1-2)’ EVAL * * 
POLY. SWAP + ‘POLY.’ STO 
NEXT 
POLY. DUP POLY." PURGE 
€ T bc ABX r } PURGE 
2 ROLL DROP 2 ROLL DROP SWAP DROP 
1500 .5 8EEP 





Edmond Dougados 











SYSTEM RPL SUR HP28S 


Petit rappel historique. En 1987 apparait la HP28C, 
première de la nouvelle génération des calculateurs 
scientifique HP basée sur ce qu'on nomme 
communément RPL, soit Reverse Polish Lisp. La 
HP28C ne comportait que 2 Ko de mémoire, jugée 
rapidement comme dramatiquement insuffisante. Un 
an plus tard (1988), HP corrige le tir en annonçant la 
HP28S dotée de 32 Ko. Mais le plus gros défaut de la 
28 reste l'absence de possibilité de sauvegarde 
externe, contrairement à ses prédécesseurs 41 et 71. 
Néanmoins, on ne tarde pas à voir apparaitre des 
programmes en assembleur pour cette machine, aidé 
en cela par la connaissance du processeur Saturn issu 
du HP71. Armé de la commande magique SYSEVAL, 
apparaissent les fonctions PEEK et dérivés, et les 
premières informations sur la structure interne de la 
machine. 


En 1990, arrive la HP48SX. Bien qu'il s'agisse sans 
conteste d’une nouvelle machine, il n’en reste pas 
moins vrai qu’elle est la descendante directe de la 28, 
reprenant un grand nombre de fonctionnalités de son 
aînée. Les connaissances accumulées sur la 28 sont 
rapidement adaptées à la 48. Associées à la facilité de 
diffusion par disques PC, de nombreuses réalisations 
voient le jour en assembleur ou en RPL interne. 


Tout change courant 1991 quand HP décide de 
mettre à la disposition des développeurs un ensemble 
de logiciels (sur PC) permettant de travailler enfin 
sérieusement en System RPL ! Même si la 
documentation des points d’entrées reste notoirement 
insuffisante (comparée aux I.D.S du 71 par exemple), 
ces outils ont marqués la fin des tentatives 
précédentes de pénible décryptage des ROM et le 
début de l'ère de l’exploration organisée et réfléchie 
des multiples objets internes. 


Fin du rappel historique. Possédant une HP2SS, j'ai 
comme beaucoup cherché très tôt à en explorer le 
contenu. Rebuté par la difficulté de lexploration 
in-situ, j'ai réalisé rapidement (hum!) le transfert de 
la ROM sur PC, et commencé à me construire des 
outils d'exploration. Mais je n’ai pu aller très loin. 
Que faire devant une foule d'objets plus obscurs les 
uns que les autres, sauf quelques rares DUP, DROP et 
autres ROT vite identifiés ? Après l’achat de la 48 dès 
sa sortie (version A s’il vous plait), j'ai naturellement 
porté mes outils pour cette nouvelle machine, 
d’autant plus que le transfert de la ROM de la 48 ne 
pose aucun problème (merci HP), mais sans 
véritablement poursuivre plus avant. Je mai pu 
disposer des outils HP qu’à l'automne 1992. 


A ce moment, l'interêt de l’étude de la ROM devenait 
évident : on peut de cette manière palier au manque 
de documentation des points d’entrée, il suffit d’aller 
jeter un coup d’oeil. Mais rapidement l’idée suivante 
m'est venu : la HP48 a repris un grand nombre 
d'objets system RPL de la 28. On retrouve 
effectivement de nombreuses routines identiques 
lorsqu’on étudie leurs ROM respectives. Pourquoi ne 
pas faire bénéficier la 28 des connaissances actuelles 
sur la 48 ? 


Grâce à la comparaison des 2 ROMSs, j'ai pu 
déterminer un certain nombre de points d’entrées de 
la 28 que je suis heureux de partager avec vous 
aujourd’hui. La liste que je vous propose comporte 
environ 500 adresses, dont près de la moitié 
correspondent il est vrai à des objets utilisateurs déjà 
connus. J'ai donné à ces points d’entrées le même 
nom que celui correspondant sur la 48, dans la 
mesure où les objets pointés sont identiques. Quelles 
sont les applications ? Jen vois deux, hormis le plaisir 
de la connaissance pure : 


-se créér une boite à outils à base de SYSEVAL, 
étendant ainsi les possibilités de cette machine. 

- donner accès à la programmation en system RPL, 
en profitant de l’acquis de la HP48. Les documents 
HP, associés à la liste présentée ici le permettent. 


Pour illustrer la première possibilité, et pour terminer 
mon propos, je vous soumets un certain nombre de 
fonctions d’usage général qui devraient être présentes 
dans toute 28 bien née. Une dernière précision 
cependant, ces points d’entrées ne concernent que la 
28S version 2BB (désolé pour les 28C). A ma 
connaissance, une seule version de 28S a été 
commercialisée, mais il serait prudent de vérifier par 
la commande #+9h SYSEVAL. 
#o8h 
Notes sur les programmes : 


- Les ’#’ indiquent des commentaires à ne pas saisir. 
- J'ai indiqué pour chaque SYsEVAL le mnémonique 
correspondant. 


Rappel: il n’y a généralement pas de vérification de 
présence ou de type d'arguments en system RPL, 
donc s’en assurer avant usage. 


SYSRCL ( #nnnnnh - objet ) 
Rappelle un objet interne sur la pile, à partir de son 


adresse (entier binaire utilisateur). 


« 


# 71BDh SYSEVAL à TWO 
# 4152h SYSEVAL à NTHELCOMP 
DROP 
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FRE (---n) 


Retourne la taille de la mémoire restante en octets. 

Ne provoque de garbage collector. 

« 
# 4BC1h SYSEVAL 
# C610h SYSEVAL 
2/ 


@ MEM 
@ UNCOERCE 


CRNAME ("nom" -’nom’) 


Création d’un nom à partir d’une chaine. Permet de 
créer des noms interdits (°(*}”, DATE+’, 
« 





# 44EDh SYSEVAL à $>ID 


B-SB ( #nnnnh-+ <nnnnh> ) 


Conversion d’un binaire utilisateur en binaire 
système. De nombreux objets RPL attendent en 
arguments des binaires systèmes. Note : la HP28 
affiche les binaires système sous forme de System 
Objet. 

« 


# 43ADh SYSEVAL à HXS># 


SB-B ( <nnnnh> > #nnnnh ) 


Conversion d’un binaire système en binaire 
utilisateur. De nombreux objets RPL fournissent en 
résultats des binaires systèmes. 

« 


# C610h SYSEVAL 


BA R>B 
» 


à UNCOERCE 


COM- ( composite + obj1 obj2 … objnn) 


Décomposition d’un objet composite en ses éléments. 
Comme oBJ-, mais fonctionne aussi sur les 
programmes et les algébriques. 
« 
# 3F41h SYSEVAL 
# C610h SYSEVAL 


à INNERCOMP 
à UNCOERCE 


+PRG ( obj1 obj2 … objn n + program } 
Création d’un objet programme à partir de ses 
éléments Associé à CoM+, permet des manipulations 
sur les programmes : suppression des « », insertion de 
System Objets rappelés par SYSRCL, … 
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« 
# C538h SYSEVAL 
# 3EEBh SYSEVAL 


à COERCE 
@ ::N 


CEVAL (liste?) 


Evaluation d’un objet composite. Comme EVAL, 
mais s'applique aux listes de façon semblable aux 
programmes (comme sur la 48). Application : 
exécution de listes construites par programme. 

« 


# C784h SYSEVAL à COMPEVAL 


PARSE ( "chaine" + objet 1 


(si pas d’erreur) 
- "chaine" <nnnnnh> "chaine” 0 
(si erreur) ) 
Analyse d’une chaine et création de 
correspondant. 


lobjet 


# EAF7h SYSEVAL 
# C9Féh SYSEVAL 


à palparse 
à COERCEFLAG 


Jean-François Garnier (242) 


POINTS D’ENTREES HP28 


Voici une liste des points d’entrées équivalents entre 
la HP28 et la HP48. Ils ne concernent que la HP28S 
version 2BB. 


NDLR : Etant donné la longueur de cette liste (plus de 500 points 
d'entrées !) et afin d'éviter de donner un aspect "France Telecom” 
à JPC. nous avons décidé de la passer en deux fois. Vous en 
trouverez donc la fin dans le prochain numéro. D'autre part, elle 
peut être obtenue sous forme magnétique, triée par ordre 
alphabétique 


=DEPTH EQU #0200E * (primitive) 
=2DUP EQU #0206E * (primitive) 
=NDUP EQU #02098 * (primitive) 
=DUP EQU #0204A * (primitive) 
=SWAP EQU #020E5 * (primitive) 
=DROP EQU #02106 * (primitive) 
=2DROP EQU #0211A * (primitive) 
=NDROP EQU #02130 * (primitive) 
=ROT EQU #02157 * (primitive) 
=OVER EQU #02184 * (primitive) 
=PICK EQU #02144 * (primitive) 














=ROLL 
=UNROLL 
=MAKEARRY 
=ARSIZE 
=DIMLIMITS 
=MUL# 
2GETTEMP 
RLG 
=DOBINT 
=DOREAL 
SDOEREAL 
=DOCMP 
=DOECMP 
=DOCHAR 
=DOARRY 
=DOCSTR 
=DOHSTR 








= INNERCOMP 
=DOGARBAGE 





=LENCOMP 
=NTHELCOMP 





=CHANGETYPE 








EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 


#021E7 
#02231 
#022AB 
#023D4 
#02418 
#02818 
#02839 
#028FC 
#02911 
#02933 
#02955 
#02977 
#02990 
#0298BF 
#02A0A 
#OZA4E 
#02A70 
#02A96 
#02AB8 
#02ADA 
#02C67 
#020C96 
#02D12 
#02D37 
#02D5C 
#02E94 
#02F90 
#036BD 
#036E2 
#037E3 
#03829 
#0383D 
#03856 
#0396A 
#03075 
#O3EEB 
#O3EFF 
#03F41 
#03FE8 
#0407F 
#040C2 
#04108 
#04152 














* 


MO 


#O4ICF * 


#0428E 
#O42CA 
#043AD 


* 


* 


#04408 * 


#04439 


#04486 


#O044ED 
#04BA4 
#048C1 


(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
Cassembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
Cassembly) 
(assembly) 
Cassembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(primitive) 
(primitive) 
(primitive) 
(prog) 
(primitive) 
(primitive) 
(assembly) 
(primitive) 
(prog) 
(prog) 
(primitive) 
(assembly) 
Cstring) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 


(prog) 


Cprimitive) 
Cprimitive) 
Cprimitive) 








=CONTEXTA 
STRUE 


=PUSHA 


=FALSE 


=XOR 
=NOT 





AND 


SEQUAL 





2ZERO 
S0NE 
=T4O 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
Eau 
EQU 
EQU 
EQU 
EQu 
EQU 


EQU 


EQU 
EQu 
EQU 
EQU 


EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 


EQU 


EQU 
EQU 


#04A94 


#04E31 * 


#OLEAG 
#04F27 
#04F3D 
#O4F9F 
#O4FF2 
#05081 
#05088 
#050EC 
#OS3AE 


#0541F 
#05473 
#O054E8 
#05511 
#05528 
#05604 
#05627 
#05673 
#0567C 
#05699 
#056F2 
#05805 
#05BAC 
#05973 


#05985 


#059c9 
#OSBEC 
#06815 
#O6BF4 


#06BF9 


#06033 
#06C4D 
#06C65 
#06CA1 
#06CB9 
#O6CE8 
#06D0A 
#06E 17 
#OGE8A 
#O6EBF 
#OGEF4 
#06F2D 
#06F60 
#06F7F 
#06F9E 
#O6FEO 


#0708D 


#071A9 


#07183 
#0718D 


MON en 0 + 


Mn en + 


* 


M» 


(assembly) 
(assembly) 
Cassembly) 
(assembly) 
(primitive) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 
(assembly) 


cprimitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
cprimitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 


(prog) 


(primitive) 
(primitive) 
(primitive) 
(primitive) 


Cassembly) 


«primitive) 
cprimitive) 
cprimitive) 
(primitive) 
(primitive) 
(primitive) 
(primitive) 
Cprimitive) 
<primitive) 
(primitive) 
(primitive) 
«primitive) 
(primitive) 
(primitive) 
<primitive) 
Cprimitive) 


(assembly) 
(systbin) 


(systbin) 
(systbin) 
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2THIRTEEN 
OURTEEN 
IFTEEN 
=SIXTEEN 
=SEVENTEEN 
IGHTEEN 
=NINETEEN 
STMENTY 
=TWENTYONE 
STHENTYTWO 
2TWENTYTHREE 
=TWENTYFOUR 
MENTYFIVE 
STMENTYSIX 
2THENTYSEVEN 











EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 





=TWENTYNINE 
STHIRTY 





2THIRTYTWO 
STHIRTYTHREE 


=FORTYTHO 
=FORTYTHREE 


=TrueTrue 
=failed 
=tAtrior 
sl*triand 


=XDUP 
=xDUP2 
=XSWAP 
=XDROP 
=XDROP2 
=XROT 
=XOVER 
=XDEPTH 
=XDROPN 
=XDUPN 
=XPICK 
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EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


#071C7 
#071D1 
#071D8 
#071E5 
#O071EF 
#071F9 
#07203 
#07200 
#07217 
#07221 
#07228 
#07235 
#0723F 
#07249 
#07253 
#0725D 
#07267 
#07271 
#07278 
#07285 
#0728F 
#07299 
#072A3 
#072AD 
#07287 
#07201 
#072C8 
#072D5 
#072DF 
#072E9 
#072F3 
#072FD 
#07307 
#07311 
#07318 
#07325 
#0732F 
#07339 
#07343 
#0734D 
#07357 


#07393 
#073A7 
#07429 
#07489 


#075DC 
#075F6 
#07610 
#0762A 
#07644 
#0765E 
#07678 
#07692 
#076B1 
#076C8 
#O76ES 


MO ne 


ns 


* 


* 


CE 


M + 


MON 


* * 


* 


Csystbin) 
Csystbin) 
(systbin) 
€systbin) 
Csystbin) 
Csystbin) 
(systbin) 
Csystbin) 
Csystbin) 
Csystbin) 
Csystbin) 
€systbin) 
{systbin) 
Csystbin) 
€systbin) 
Csystbin) 
Csystbin) 
€systbin) 
(systbin) 
(systbin) 
Csystbin) 
Csystbin) 
€systbin) 
(systbin) 
Csystbin) 
Csystbin) 
(systbin) 
Csystbin) 
(systbin) 
Csystbin) 
Csystbin) 
(systbin) 
Csystbin) 
Csystbin) 
Csystbin) 
(systbin) 
Csystbin) 
(systbin) 
Csystbin) 
Csystbin) 
Csystbin) 


(prog) 
(prog) 
(code) 
prog) 


(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
Cuser RPL) 
(user RPL) 








=x= 
EXNEG 

=XABS 
=XCONJ 

=xPl 

=XMAXR 
ZXMINR 
=xCONSTANTe 
=xi 

=x+ 


=x- 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


#O76FF 
#07719 
#07733 
#07752 
#0776C 
#077A4 
#077F0 
#07832 
#07888 
#078C0 
#O7BEE 
#0796C 
#O79AE 
#079C8 
#079EC 
#07A10 
#07A34 
#O7AE4 
#07839 
#07885 
#078D6 
#O07C5E 
#07D4A 
#07DE1 
#07E32 
#07F89 
#0814A 
#08277 
#OB3EE 
#087C3 
#087EC 
#0886F 
#088F2 
#08952 
#08905 
#08A53 
#O08AD6 
#08B4A 
#OBBBE 
#08C32 
#08CA6 
#08D24 
#08070 
#0808C 
#08E08 
#08E36 
#08E64 
#O8E92 
#O08ECO 
#OBEEE 
#08FD0 
#09076 
#09144 
#O91FE 
#092D8 
#09327 
#0937D 
#09469 


MOMOMOOOUOOONO 


MOROMOOO N 


M * 


* + 


* 


HOMO 0 


* + 


* 


(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 





RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 


(prog) 


(user 
(user 
{user 
(user 
(user 
(user 
(user 
(user 
(user 


RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 


Csystbin) 


(user 
(user 
(user 
Cuser 
Cuser 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
Cuser 
Cuser 
(user 
cuser 
Cuser 
(user 
(user 
cuser 
Cuser 
(user 
(user 
(user 


RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 














=xSIGN 
=XSORT 
=xSQ 
=XSIN 
=xCoS 
=XTAN 
=XSINH 
=xCOSH 
=XTANH 
=XASIN 
=XACOS 
=XATAN 
=XASINH 
=XACOSH 
=XATANH 
=xEXP 
=xLN 
=xLOG 
=XALOG 
=xLNP1 
=XEXPM 
=XFACT 
=xIP 
=XFP 
=XFLOOR 
=XCEIL 
=XXPON 
=XMAX 
SXMIN 
=xMOD 
=XMANT 
=XD>R 
EXR>D 
=X>HMS 
=XHMS> 
=XHMS+ 
=XHMS- 
=XRNRM 
=XCNRM 
=xDET 
=xDOT 
=xCROSS 
=XRSD 
=xX 
EX2T 
=xXXCH 
=XRAND 
=xRDZ 
=xCOMB 
=XPERM 
=xLCD> 
=XLCD 
=xDGTIZ 
=XMENU 
=xRCL 
=XEQRCL 
=XSTO 
=xPURGE 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


#094E2 
#09524 
#0958E 
#09602 
#09644 
#09686 
#096C8 
#0970A 
#0974C 
#0978E 
#09802 
#09876 
#09888 
#O09BFA 
#09969 
#0990D 
#O9AIF 
#09A89 
#O9AF3 
#09835 
#0986D 
#09BA5 
#098DD 
#09015 
#09C4D 
#09C85 
#09C8D 
#09CF5 
#09041 
#09D8D 
#090D9 
#09E11 
#09E49 
#09E77 
#09E98 
#09EBF 
#O9EE3 
#09F07 
#09F28 
#09F4F 
#09F73 
#09F97 
#09FB8 
#09FE9 
#0A035 
#0A081 
#0A0C3 
#0A0DD 
#0A101 
#0A125 
#0A149 
#0A163 
#0A187 
#OA1AT 
#OAÎCF 
#OA1F7 
#0A220 
#0A26C 


MOUOUOOOMORE EE E 0  N ù + 


* 


x 


* 


x 


M 


(user 
(user 
(user 
(user 
(user 
(user 
Cuser 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 


(prog) 


(user 
(user 


RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 


RPL) 
RPL) 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


To be continued... 


#0A32B 
#0A359 
#0A396 
#0A380 
#OA3CA 
#OASE4 
#OA3FE 
#0A418 
#0A450 
#0A500 
#0A54C 
#0A5A6 
#OASD4 
#0A616 
#0A63A 
#0A654 
#0A73A 
#OATSE 
#0A778 
#0A792 
#0A7B6 
#O0A7F3 
#0A830 
#0A86D 
#OABAF 
#0A8D3 
#OA8F7 
#OA92F 
#0A967 
#0A99F 
#0A989 
#OAAOA 
#0AA60 
#OAA94 
HOAAAE 
#OAAC8 
HOAAEC 
#0AB06 
#0AB820 


CE 


SEE 


MON où 


M 


(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
Cuser 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 
(user 


RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 
RPL) 


Jean François Garnier (242) 
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Jean-Francois Garnier à la recherche 
des points d'entrées de la HP28... 









Tv ves 
parter, 


Salete ! 
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J.F. Garnier 
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Programmation System RPL 
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15 
17 


18 
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LES NOUVELLES HP48 


Depuis son apparition en 1990, la HP48 n’avait évolué 
que par le biais des nouvelles versions de la Rom. 
Aujourd’hui, Hewlett-Packard introduit deux 
nouvelles versions de la machine, nommées HP48G et 
HP48GX (le ’G signifiant Graphic) dotées de 
possibilités absentes de la version précédente. 


Aspect 


Même si la forme du boitier et l'emplacement des 
touches est identique à la 48SX, plusieurs éléments 
permettent de distinguer d’un coup d'oeil les 
nouvelles versions : 


- Tout d’abord, la couleur du plastique utilisé pour le 
boitier semble avoir changé. À moins que cela soit dû 
aux changements de couleur du clavier, dont nous 
parlerons plus tard, elle donne maintenent une 
impression plus "métalique". Mais ce n’est que 
pûrement subjectif, et sera vérifié dès que nous 
pourrons voir les deux versions l’une à côté de l’autre. 


- Un petit logo montrant un tracé d’équation est 
visible au dessus du coin supérieur/gauche de l'ecran. 
Juste au dessous de ce logo, une mention /228K RAM 
(pour la GX, 32 pour la G indique la capacité 
mémoire de la machine. 


- Un autre élément visible sur la nouvelle version est 
que le clavier a changé. En premier lieu, la couleur 
des touches et des marquages shiftées sont devenues 
‘lavande’ pour le Shift gauche et vert clair pour le 
Shift Droit. Ensuite, une zone plus claire entoure 
maintenat les touches numériques et le Shift Droit. 
Mais la différence la plus fondementale est que de 
nombreuses marquages ont été déplacés, renommés, 
ajoutés ou supprimés. Au lieu de vous faire subir la 
liste complète de ces changements, nous vous 
encourageons à comparer les marquages de votre 
machine par rapport à la photo visible sur l’autre 
page. 


- Enfin, même si il présente les mêmes 
caractéristiques que pour les précédentes versions, 
l'écran a été changé et possède maintenant un 
meilleur contraste. 


Le Hardware 


La capacité de la Rom est maintenant de 512 k. Ceci 
peut paraître étonnant pour les programmeurs en 
assembleur, car cela correspond exactement à la 
capacité d’adressage du microprocesseur Saturn ! En 
fait, les nouvelles versions utilisent une méthode de 


page swaping permettant de n’accéder à la Rom que 
par des blocs plus petits, dans une ‘fenêtre’. C’est 
cette méthode qui est utilisée pour accéder à la Rom 
du HP95, ou plus généralement à l'EMS sur les PC. 


Afin de compenser les pertes de performances dûes 
au Bank Switching, la fréquence du Saturn est passée 
à 4 Mhz. Ceci permet d’obtenir, au niveau utilisateur, 
un gain de vitesse de l’ordre de 40 à 50%. 


Comme nous l’avons mentionné plus haut, la Ram 
interne de la GX est portée à 128 Ko. Celle de la G 
reste limitée à 32 Ko. 


La GX comporte les mêmes connecteurs de cartes 
que la SX. Cependant, il est maintenant possible 
d'installer une carte ayant une capacité de 4 Mo ! 
Celle ci ne peut être placée que dans le deuxième 
port. En fait, seule la carte (de 128 ko maxi) présente 
dans le port 1 peut être mergée avec la mémoire 
principale. La carte présente dans le port 2 est 
accessible par blocs de 128 ko, accessible par des 
ports numérotés 2 à 33 (dans le cas des cartes de 4 
Mo). 


Bien sûr, les quasi-totalité des cartes d’applications de 
la 48SX pouront être placées dans la nouvelle version, 
à l'exception de certaines cartes utilisant des points 
d’entrées non supportés, et les cartes RAM TDS 256 
et 512 ko. 


Les nouvelles Fonctions 


Le passage à 512 ko de la capacité de la Rom est dû 
en grande partie à l'inclusion de la carte Equation 
Library (aussi appelée HP Solve) regroupant quelques 
centaines d’equations applicables dans tous les 
dommaines (électricité, calculs des fluides, poutres...). 
Les seules omissions sont la table périodique des 
éléments et le jeu Tetris (inclus dans la dernière 
version). Il n’est pas possible de placer la carte 
Equation Library dans la GX. 


Mais les grandes innovations des nouvelles versions 
concernent l'interface utilisateur, puisque deux 
nouvelles fonctionnalités ont été rajoutées : 


- Des menus déroulants permettent de "naviguer" plus 
facilement dans l'arborescence des commandes, en 
conservant les options précédement sélectionnées. 
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- Pour les commandes recourant à de nombreux 
paramètres (tracés de courbes, par exemples), des 
masques de saisie permettent d’entrer les données de 
façon plus évidente que dans la pile. Eventuellement, 
les paramètres par défaut sont donnés. 
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Lutilisateur a bien sûr la possibilité de définir ses 
propres menus déroulants et masques de saisie. 


En addition à ces aides, une fonction TEACH permet 
d'effectuer une mini-démonstration d’une vingtaine 
des fonctions les plus complexes. 


En ce qui concerne les autres possibilités graphiques, 
il est maintenant possible d’effectuer des tracés en 
3D, à la manière de DERIVE sur le HP95. 


Le changement de la fréquence du microprocesseur 
est particulièrement visible lors des tracés en 2D. 
Mais cette accélération a aussi permis aux 
programmeurs de (Corvallis d’ajouter quelques 
"extras" aux fonctions déjà existantes. Par exemple, 
lorsque l’on sélectionne une zone de tracé que l’on 
veut "zoomer", la zone choisie est maintenant 
visualisée en temps réel par un rectangle, alors qu'il 
n’y avait que deux croix visibles sur la série S. 


De nouvelles commandes et fonctions ont été 
ajoutées. Parmi celles ci, nous pouvons citer en vrac : 
Résolution d’équations différentielles, Transformées 
de Fourrier, de nouvelles fonctions matricielles des 
commandes permettant de visualiser des portions de 
listes, de nouvelles fonctions matricielles (dont 
certaines ajoutées par James Donnelly d’après son 
Donnelly's Tool Library), une commande ANIMATE 
permetant d'afficher successivement (et très 
rapidement) une série de GROBs... 


D’autre part, il est maintenant possible de regrouper 
les paramètres successifs d’une même fonction dans 
une liste. Par exemple, 2 SF 3 SF 4 SF peut être 
remplacé par € 234} SF. De même € 1 2 3 } sa 
donne 41493 et €(1233*€456 donne 
€ 4 10 18 }. En fait quasiment toutes les fonctions (y 
compris celles demandant plusieurs paramètres, telles 





que BEEP) peuvent accepter une liste comme 
argument ! 


Du côté des communications, le mode Xmodem est 
maintenant supporté (en mode binaire uniquement). 


En ce qui concerne les programmes, la compatibilité 
ascendante est bien entendue assurée pour l'User 
RPL. Cependant, quelques modifications sont à 
noter, telles que la possibilité de déclarer certaines 
variables en local, afin de les réserver au programme 
et d'accélérer leur exécution. Cette déclaration 
s’effectue en plaçant le caractère "-" en tête du nom 
de la variable. D’autre part, il faudrait mettre à jour 
les programmes utilisant # MENU et # TMENU, car 
certains codes de touches auraient changé. 


Pour la programmation en External ou en assembleur 
les points d’entrées supportés sur les S semblent 
conservés dans la grande majorité. La nouvelle Rom 
posséderait maintenant près de 4000 points d’entrées, 
les nouveaux étant placés dans les 256 ko 
supplémentaires. 


Les Notices 


Les nouvelles 48 sont livrées avec 3 manuels : Un 
manuel de prise en mains (108 pages, pour la version 
anglaise ?), un manuel de référence (480 p.) et un 
guide de traduction (en 5 langues des différents 
écrans et menus (80 p.). 


Cependant, le manuel de référence comprenant 
maintenant tout ce qui concerne l’'Equation Library, il 
ne reste quasiment plus de place pour les parties 
concernant la programmation. D’autre part, HP ayant 
constaté qu’une très faible majorité des utilisateurs 
programmaient, la partie décrivant la programmation 
en détail est maintenant livrée dans un "Advanced 
Users Manual” (de 722 pages), malheureusement 
disponible en option. 


Les accessoires 


HP commercialisera deux cartes Ram dès la sortie da 
la machine. La première est bien connue, puisqu'il 
s’agit de la 128 ko de la 48SX. La seconde possède 
une capacité de 1 Mo. Son prix n’était pas encore fixé 
le jour de bouclage de ce numéro. D’autre part, 
Sparcom commercialiserait une carte de 4 Mo, à un 
prix avoisinant les 1000 $. 


Une nouvelle version du "Connectivity Kit" sortira 
avec les nouvelles versions de la machine. 











Prix et disponibilité 


Une bonne nouvelle, le prix des nouvelles machines 
est légèrement en baisse, puisque la GX sera vendue 
2086 F.HT (prix catalogue) et la G : 1162 F.HT. Elles 
devraient être disponibles en France vers la fin du 
mois d’aout. 


Il est à noter (une bonne nouvelle ne venant jamais 
seule !), que HP organise pour la sortie de la 
machine, et pour un temps limité, une promotion 
visant à offrir le Connectivity Pack avec toute 
machine achetée ! 


Pierre Silvestre de Sacy (572) 
Jacques Belin (123) 


LES SECRETS... 
TOME Il 


Voici arrivé le tome 2 des "Secrets de la HP 48" de 
Jean Michel Ferrard. Il vient prolonger le tome 1 en 
poussant plus loin l’utilisation des SYSEVALs. En 
effet, certaines routines en ROM ne peuvent pas être 
utilisées selon la forme #xxxxxh SYSEVAL mais doivent 
être appelées par des méthodes différentes. 


Dans ce nouveau livre sont présentés tout d’abord 
deux programmes pour contourner ce problème. L’un 
et pour la 48 l'autre pour PC (écrit en Pascal). Le 
gros avantage sur ce qui existe déjè est que l’on a le 
listing avec quelques commentaires succincts, mais 
qui permettent de comprendre le rôle de chaque 
procédure et fonction, et donc d’apporter des 
modifications si lon veut "personnaliser" son 
programme. 


Faisant suite a ces deux programmes, sont exposés de 
nouveaux Point  d’Entrées Assembleur et 
Systeme-RPL, accompagnés de nombreux exemples, 
permettant maintenant aux néophites d'écrire de 
puissants programmes. 


Pour vous encourager a écrire plein de programmes, 
on trouve a la suite des utilitaires tel que PEEK, 
POKE, un programme pour retrouver le "source" 
d'un programme un System RPL, et deux 
programmes pour créer et défaire des librairies, le 
tout avec uniquement des appels en ROM (ce que 
personnellement je considere comme un exploit car si 
j'en avait été l’auteur je n’aurait pas resisté a en écrire 
une partie en assembleur. Mais là est bien l’un des 





buts du livre : montrer qu'il est presque toujours 
possible de ne pas toucher à l’assembleur). 


Heureusement pour moi, J.M. Ferrard a bien voulu 
dans la deuxième partie de son livre aborder la 
programmation en assembleur. Il y decrit tout 
d’abord les différents registres du Saturn avec leur 
Champs, suivis d’un cours rapide d’arithmétique non 
signée et signée en hexadécimal puis en Décimal 
Codé Binaire. 


Vient ensuite une description detaillée de chaque 
instructions avec leurs mnémoniques, leur codage en 
fonction du champ concerné, et pour certains, le 
nombre de cycles. Puis la liste Alphabétique des 
mnémoniques puis des codes-machine. 


Mais pour écrire des programmes en assembleur 
(sous forme de mnémoniques), il faut un assembleur 
(programme chargé de transformer le source en 
programme éxécutable). Pas de problème, les deux 
chapitres qui suivent vont vous combler : un 
assembleur sur 48 et un sur PC. 


Pour ne pas avoir a réécrire ce qui l’a déjà été, une 
liste bien etoffée d’adresse de routines en ROM 
(donc à apeller par Gosv8L ou GOVLNG) montre encore 
une fois que J.M. Ferrard a voulu nous livrer tous les 
secrets de la ROM de la HP 48. 


Pour finir, quelques programmes reprennent pour 
l'exemple certains des utilitaires vus dans la première 
partie, mais cette fois en assembleur ainsi que de 
nouveaux utilitaires. 


Je n’ai malheureusement pas eu le temps de taper 
tous les programmes. Toutefois le programme 
EXTERNPC pour écrire du Systeme-RPL sur un PC en 
pascal m'a posé quelques problèmes lors de la 
compilation (j'utilise le Turbo Pascal 6) : carçn mod 
16); me faisait une erreur de type (#7 etant un 
“longint" ou un ‘“integer" et car etant une fonction 
prennant en paramètre un "byte"). Normalement le 
pascal devrait convertir le resultat de l’operation en 
“byte". Pour contouner l'erreur jai du créer une 
variable locale de type "byte” puis lui affecter le 
resultat de lopération et enfin transmettre cette 
variable en paramètre. 


Autre probleme (une erreur dans le listing cette fois), 
page 56, à la dernière ligne de la procédure 


Convertir_Ligne : 


if (not stop) and (item<>’!) then ajouter(result); 
item est une fonction à qui il faut transmettre une 
chaine de caractères, or, on ne lui transmet rien... Il 
suffit de remplacer item par ident. 
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Apres avoir lu ce deuxième tome, la HP 48 n’aura 
plus beaucoup de secrets pour vous. Alors on peut 
penser que lon ne verra jamais de Tome 3... A moins 
que la nouvelle HP48GX n’apporte a J.M. Ferrard 
assez de secrets pour un nouveau volume ! 


Pour ceux qui ne veulent pas taper tous les listing de 
ce tome, il est possible de les obtenir sur disquette, 
ainsi que les exécutables. Il faut s’adresser a l'éditeur. 


Pierre Silvestre de Sacy (572) 





MENUS, SYSEVAL ET 
VERSIONS DE ROM 


Dans le numéro 85 de JPC, Pierre Sylvestre de Sacy 
nous expliquait dans un très intéressant article 
comment créer des menus spéciaux du type de ceux 
utilisés de façon interne par la HP48 : exécution d’un 
programme à chaque affichage du menu, menus avec 
options, menus inversés, etc … en utilisant pour cela 
des objets RPL internes. J’emettrai cependant une 
réserve concernant lemploi d’adresses non 
supportées (que Pierre Sylvestre ne prenne pas ce qui 
suit comme une bête critique de son travail, je trouve 
ses articles fort intéressants). C’est pourquoi je me 
permet de proposer quelques modifications. Vous 
trouverez des versions de sYSRCL et -PRG utilisant les 
points d’entrées dans un autre article dans ce numéro 
(System RPL sur HP48), et voici SMENU réécrit en 
utilisant coM+ décrit dans ce même article. Les autres 
programmes ne posent pas de problèmes. 


SMENU 

« 
{8 CTRL 
# 40788h SYSRCL 
SWAP COM+ 1 + -PRG 


à TakeOver 


» 


D'une façon plus générale, je pense qu’il serait 
souhaitable de nutiliser que des points d’entrées 
supportés dans les articles publiés. Bien sûr, rien ne 
vous empêche d’utiliser d’autres adresses pour vos 
programmes personnels, mais pensez à ceux qui 
possèdent une version différente et qui souhaitent 
utiliser vos réalisations. La version J a déjà donné lieu 
à certains problèmes (avec des programmes des 
Goodies Disks par exemple). Le problème risque de 
devenir encore plus important avec l’arrivée de la 
48GX, car il s’agit là d’une révision majeure de la 
ROM, comparée aux différentes versions de la 48SX. 
A l'heure où j'écris ces lignes, je n’ai pas la certitude 
que la 48GX conserve l’ensemble des points d’entrées 
(bien que cela soit vraisemblable), mais je suis sûr 


que bon nombre d’adresses non supportées vont être 
perturbées. 


Ma position n’a rien de dogmatique. Si vous souhaitez 
utiliser une adresse non supportée pour une bonne 
raison (pas de point d'entrée équivalent, 
raccourcissement drastique du programme) allez-y, 
mais indiquez-le clairement en rappelant la ou les 
versions de 48 sur lesquels vous avez testé votre 
programme. Et surtout, que ces quelques réflexions 
ne vous empêchent pas de créer et de publier ! 


Jean-François Garnier (242) 


SYSTEM RPL SUR HP48S 


Pour que les possesseurs de HP48S(X) ne se sentent 
pas lésées, voici les adaptations pour cette machine 
(toutes versions) des SYSEVALS présentés dans 
Particle System RPL sur HP28S 


SYSRCL ( #nnnnnh + objet ) 
Rappelle un objet interne sur la pile, à partir de son 


adresse (entier binaire utilisateur). 
« 


# 4003h SYSEVAL a TWO 
# 56B6h SYSEVAL à NTHELCOMP 
DROP 

5 

FRE (--n) 


Retourne la taille de la mémoire restante en octets. 
Ne provoque de garbage collector. 
# 5F61h SYSEVAL 
# 1808Fh SYSEVAL 
2/ 


à MEM 
à UNCOERCE 


CRNAME ("nom" +’nom } 


Création d’un nom à partir d’une chaine. Permet de 
créer des noms interdits (°(*}”, 'DATE+, …). 
« 


# 5815h SYSEVAL a &1D 











B-SB (#nnnnh- <nnnnh> ) 


Conversion d’un binaire utilisateur en binaire 
système. De nombreux objets RPL attendent en 
arguments des binaires systèmes. Note : la HP28 
affiche les binaires système sous forme de System 
Objet. 

« 


# 5A03h SYSEVAL à HXS># 


SB-B ( <nnnnh> + #nnnnh) 


Conversion d’un binaire système en binaire 
utilisateur. De nombreux objets RPL fournissent en 


résultats des binaires systèmes. 
« 


# 59CCh SYSEVAL ax #>HX$ 


COM- ( composite - obj1 obj2… objnn) 
Décomposition d’un objet composite en ses éléments. 
Comme oBJ+, mais fonctionne aussi sur les 
programmes et les algébriques. 
« 
# S4AFh SYSEVAL 
# 180BFh SYSEVAL 


8 INNERCOMP 
à UNCOERCE 


-PRG ( obj1 obj2 … objn n - program ) 


Création d’un objet programme à partir de ses 
éléments Associé à COM-, permet des manipulations 
sur les programmes : suppression des « », insertion de 
System Objets rappelés par SYSRCL, … 
« 

# 18CEAh SYSEVAL à COERCE 

# 5445h SYSEVAL a :: 


CEVAL (liste +?) 


Evaluation d’un objet composite. Comme EVAL, 
mais s'applique aux listes de façon semblable aux 
programmes (comme sur la 48). Application 
exécution de listes construites par programme. 

« 


# 18EBAh SYSEVAL à COMPEVAL 


PARSE ( "chaine" - objet 1 
(si pas d’erreur) 
"chaine" <nnnnnh> "chaine” 0 
(si erreur) ) 





Analyse d’une chaine et création de lobjet 
correspondant. 

« 

# 238A6h SYSEVAL à palparse 


# 5380Eh SYSEVAL à COERCEFLAG 


Jean-François Garnier (242) 


TRUCS, ASTUCES ET 
PETITS UTILITAIRES 


Si vous avez RPL48 Toolkit de Detlef Mueller et 
Raymond Hellstern et que vous désirez décompiler 
un objet dans votre HP48 (ROM ou RAM) en mode 
pas à pas (exemple : voir l’article sur UNLINE) voici un 
mini programme qui permet de voir les lignes de 
décompilation et de concaténer l’ensemble des lignes. 


Mode d'emploi: 


MW ENTER ENTER 
#aaaaa (l'adresse de départ) 


RPLD 
puis vous poursuivez de ligne en ligne avec RPLD 


Lorsque vous arrêtez, les 2 premiers niveaux sont à 
éliminer pour récupérer l’ensemble des lignes. 


RPLD 


<« SWAP DROP DCADR 
OVER 
"+ 4 ROLL SWAP + 3 ROLLD 


» 


à newline 


La même procédure est à utiliser pour désassembler 
du code, il suffit de remplacer DCADR par DA. 


UNA 


« SWAP DROP DA1 
OVER 
"+ 4 ROLL SWAP + 3 ROLLD 


à newline 


Guy Toublanc (276) 
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Ne vous battez plus 
avec votre cæleulateur: 
ACHETEZ on HP! 
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MS-DOS 


J. Belin 


Visualisation d’encombrement du disque 22 


Le coin des codes 31 
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COMPTEZ VOS CLUSTERS ! 


Lorsque l’on veut copier le contenu d’un directory (et 
ses sous-répertoires s'ils existent), il est souvent 
intéressant de connaitre avec précision 
l'encombrement réel de ces fichiers, et non la taille 
affichée par la commande Dir. En effet, comme vous 
le savez (ou devriez le savoir !), les fichiers sont 
enregistrés dans des zones de stockage possédant une 
taille multiple de 512 octets appelées clusters 
(grappes). Un fichier de grande taille peut bien sûr 
occuper plusieurs clusters, mais dès qu’un octet 
occupe le début d’un d’entre eux, il sera réservé en 
totalité, même si il est vide à 99.99% ! 


Or, sur MS-DOS, la taille des clusters varie suivant 
les différents supports utilisés. Pour mémoire, les 
tailles de cluster courament utilisées sont les 
suivantes : 


- 512 octets : Unites de disque du HP95, disquettes 
3"%1 1.44 Mo et 5" 1.2 Mo. 

- 1024 octets : disquettes 3" 720 ko et 5% 360 ko. 

- 2048 : Partitions de disque dur < 128 Mo. 

- 4096 octets : Partitions de disque dur < 256 Mo, 
partitions de disques secondaires. 

- 8192 octets : partition de disque dur < 512 Mo... 


Lorsque l’on copie un fichier, la taille réelle du fichier 
sera ajustée en fonction de la taille de cluster du 
disque de destination. Si nous avons un grand nombre 
de petits fichiers à copier vers un support ayant une 
taille de cluster différente, la taille occupée sur le 
disque de destination peut largement excéder les 
prévisions initiales. Ceci explique qu’il est parfois 
impossible de copier le contenu d’une disquette 1.44 
Mo pleine à 20% (288 ko) dans une disquette vierge 
de 360 ko! 


Lutilitaire présenté ce mois-ci permet de mieux 
apréhender lencombrement des directories, en 
donnant non seulement la taille réellement utilisée 
par le directory source, mais aussi celle qu’elle serait 
dans le disque de destination. 


Appelé ou (Disk Usage), sa syntaxe est la suivante : 


du t-5/|-11-21-4|-81 Cidisque:1path] 

Les options ”-5, *-1”.. indiquent la taille de cluster du 
support de destination. Le caractère d’option indique 
le premier chiffre de la taille de cluster : *5 indique 
512 octets, 1 pour 1024, ’2’ pour 2048... 





Si aucune option west spécifiée, le programme 
effectuera les calculs en fonction de la taille de cluster 
du disque contenant les directories. dans tous les cas, 
la taille de cluster prise en compte est affichée. 


Il est possible de spécifier le directory de départ après 
les options. Par défaut, c’est le directory courant. 


Par exemple : 
>du \lang\te 
affichera : 
Cluster size = 2048 
184320 bytes in \lang\tc 


2668544 bytes in \Lang\tc\BIN 
176128 bytes in \Lang\te\INCLUDE 
6144 bytes in \Lang\tc\INCLUDE\SYS 
1198080 bytes in \Lang\te\LIB 
155648 bytes in \Lang\tc\86I 
57344 bytes in \lang\tc\CLASSLIB 
0 bytes in \Lang\tc\CLASSLIB\EXEMPLES 
149504 bytes in \Lang\tc\CLASSLIB\INCLUDE 
57344 bytes in \Lang\tc\CLASSLIB\LIB 
151552 bytes in \Lang\tc\CLASSLIB\SOURCE 
0 bytes in \Lang\tc\EXEMPLES 


5 5 


Total : 4804608 bytes 
Les encombrements sont indiquées en fonction de la 
taille de cluster du support. 


Supposons maintenant que nous voulions copier le 
directory include (et son sous répertoire) sur une 
disquette 1.44 Mo, ou dans la mémoire du HP95. 
Sachant que la taille de cluster pour ces supports est 
de 512 octets, nous taperons la commande suivante : 


>du -5 \Lang\tc\ include 
Ce qui nous donnera : 
Cluster size = 512 


147968 bytes in \Lang\tc\include 
3072 bytes in \Lang\tc\include\SYs 

Total : 151040 bytes 

Vous pouvez constater que l'encombrement des 

directories est inférieur à ce qui était affiché dans 

l'exemple précédent. Dans le cas contraire, si nous 

voulons copier ces fichiers dans un "gros" disque dur 


(avec une taille de cluster de 8192 octets) nous 
obtenons ceci : 














Cluster size = 8192 


344064 bytes in \lang\tc\include 
24576 bytes in \lang\tc\include\SYS 


Total : 368640 bytes 
Soit un supplément de plus de 200 ko ! 
Fonctionnement du programme 


Avant de décrire la structure du programme, je 
voudrais préciser que la version présentée aujourd’hui 
est issue d’une plus ancienne, écrite en langage C. 
Afin d’économiser la mémoire du HP95, je l'ai réécrit 
en assembleur. Ceci a fait passer sa taille de 7962 
octets à 1532. Soit 20% de la taille originale, et avec 
des fonctionnalités équivalentes ! Notez aussi que je 
me suis efforcé de faire tenir le programme dans 
moins de 3 clusters de HP95, ce qui limitait sa taille à 
1536 octets. 


Le coeur du programme est basé sur une fonction 
récursive, permettant de calculer l'encombrement de 
chaque directory puis effectuer la même opération 
dans les sous-répertoires suivants : 


L’algorithme de cette fonction est le suivant : 


duçpath) 
sauvegarde de L'ancienne DTA 
allocation buffer 
selection nouvelle DTA dans buffer 
taille directory = 0 
pour chaque fichier du directory 
ajouter taille du fichier à celle du directory 
afficher taille directory 
taille totale = taille totale + taille directory 
pour chaque entrée du directory 
si (attribut DIRECTORY) et (entrée # "." ou " 
newpath = “path\entrée" 
appeler du(rewpath) 
Libération buffer 
restauration ancienne DTA 





La DTA (Direct Transfert Area) est une zone de 
mémoire utilisée par les fonctions de recherche de 
fichiers spécifiés par les wildcards ** et *?”. Son 
adresse de départ peut être spécifiée par le 
programmeur, afin de faciliter Putilisation dans les 
fonctions récursives. 


Afin de fonctionner correctement, la fonction utilise 
des variables locales, qui sont principalement la DTA 
et un chaine de caractère contenant le chemin 
courant auquel on ajoute le nom des sous-répertoires 
à traiter (cette chaine servira de paramètre pour les 
appels récursifs). L’assembleur ne permettant pas, 


comme le langage C, de créer automatiquement les 
variables locales (invisibles aux niveaux suivants des 
appels récursifs) nous devons nous occuper nous 
même de cette tâche. Ceci est fait en demandant au 
DOS d’allouer un bloc de mémoire au début de la 
fonction, et de le libérer en fin d’execution. En 
pratique, il y aura donc un buffer alloué pour chaque 
niveau d’imbrication de directory, soit une dizaine au 
maximum. 


Hormis cette fonction, le programme en utilise 
d’autres, qui peuvent être utilisées par d’autres 
programmes. 


Les plus importantes concernent la manipulation des 
paramètres de la ligne de commandes et l'analyse des 
option. Etant utilisateur du langage C, j'ai choisi de 
recréer certaines choses existant dans ce langage, afin 
de simplifier le portage de mes utilitaires. La 
première chose à faire était donc de créer une 
fonction créant la variable argc et le tableau *argvt] 
parmettant d'accéder directement aux paramètres. Ce 
qui n'existe pas à l’origine dans le DOS, puisque seule 
la chaine séparée par des espaces est accessible. 


La deuxième fonction, getopt, permet d’analyser les 
options entrées sous le format habituel sous UNIX. Il 
s’agit en fait d’une réécriture assez fidèle de celle que 
j'avais présenté (en langage C) dans le n° 76 de JPC. 
Toutefois, sur le programme présenté ce mois ci, j'ai 
profité d’une particularité des options de l’utilitaire 
afin d’en diminuer sa taille. Je vous conseille donc 
d'attendre le mois prochain avant d’essayer de 
comprendre son utilisation exacte. En effet, je devrais 
publier un autre utilitaire untilisant cette fonction de 
façon plus "normale" et complète. 


Les autres fonctions sont principalement des 
commandes de manipulation de chaines. Etant 
précédées d’un en-tête, elles ne devraient pas poser 
trop de problèmes d’utilisation. Certaine fonctions 
(strepy par exemple) sembleront mal écrites (car 
utilisant mal les possibilités du microprocesseur) pour 
les programmeurs expérimentés. Ceci est dû au fait 
qu’elles on été écrites afin de faire des manipulations 
entre du PSP (pointé par le registre ES) vers le 
segment de données du programe (pointé par DS), 
alors que le microprocesseur est optimisé pour faire 
les tranferts dans l’autre sens. 


Ceci dit, il ne vous reste plus qu’à regarder 
l'encombrement de vos directories préférés ! 


Jacques Belin (123) 
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LE COIN DES CODES DU.co 


0123 4567 89AB CDEF 


La compilation de certains programmes, tels que ceux 

















écrits en assembleur, nécessitent souvent un logiciel 000: E965 0301 
que ne possèdent pas tous nos lecteurs. Le Coin des 0000 
Codes permet de résoudre ce problème. 0000 
0000 
Ce programme est destiné à l'entrée des exécutables 0000 
MS-DOS uniquement. Il nécessite GWBASIC. 0000 
0000 
Mode d’emploi : 0000 
0000 
1- Lancer le programme : GWBASIC MAKEDOS.BAS 0000 
2- Entrer le nom du fichier destination. 0000 
3- Entrer la taille du fichier. 0000 
4- Entrer les listes de codes puis le checksum (en 0000 
prenant soin d’entrer les codes héxadécimaux en 0000 
majuscules). En cas d'erreur corriger la ligne, en 00E: 0000 0000 
prenant soin de placer le curseur après le dernier 00F: 0000 0000 
caractère avant de taper sur la touche d’entrée. 0000 
5- Une fois que toutes les lignes sont entrées, sortir S71E 
du GwBAsiC en exécutant la commande SYSTEM. Le 1E85 
nouveau programme est immédiatement disponible. 8880 
O14: 32ED 268A 
Note : La taille du fichier résultant peut être 015: 7450 8200 
supérieure d’un octet à ce qui est affiché dans le 016: C602 2684 
listing. Cela n’est pas un problème. 
Programme MAKEDOS .BAS 
10 INPUT "Nom du fichier : ",NOMS : INPUT "Nombre d’octets : ",N : N=N*2 
20 OPEN NOMS FOR OUTPUT AS #1 : CLOSE #1 : KILL NOMS 
30 OPEN "bin.tmp" FOR OUTPUT AS #1 : S=0 : eee eee ee 
40 NLINES=N\16 : LENLAST=(N MOD 16)+CCN MOD 16)\5) 
50 1F CN MOD 16=0 THEN NLINES=NLINES-1 : LENLAST=LEN(PS) 
60 FOR X=0 TO NLINES 
70 IF X=NLINES THEN PS=LEFTS(PS, LENLAST) 
80 CS=PS 
90  X2S=MO0"+HEXS(X) : PRINT RIGHTS(X2S,3);"2"; 
100 Y=CSRLIN : LOCATE Y,6 : PRINT CS; : LOCATE Y,6 : INPUT ",C$ : Y=Y-1 
110  LOCATE Y,27 : PRINT " sm = ---" : LOCATE Y,33 : INPUT "",D$ 
120 M=S 
130 FOR Z=1 TO LEN(CS) 
140 IF MIDS(CS,2,1)<>" THEN M=(M+((Z-(Z\5))*ASCCMIDS(CS,2,1)))) MOD 4096 
150 NEXT Z 


160 D2S="O0"+HEXS(M) : D2S=RIGHT$(D2$,3) 

170 IF D2$<>D$ THEN PRINT "Erreur de somme" : BEEP : GOTO 90 
180 FOR Z=1 TO LEN(C$) STEP 2 

190 IF MID$(CS,2,1)=" " THEN Z=Z-1 : GOTO 230 

200 CH=ASC(MIDS(CS,Z,1))-48 : IF CH>9 THEN CH=CH-7 

210 CL=ASC(MIDS(CS,2+1,1))-48 : IF CL>9 THEN CL=CL-7 

220 PRINT#1, CHRSC(16*CH)+CL); 


230 NEXTZ 
240 S=M 
250 NEXT X 


260 CLOSE #1 : NAME "bin.tmp" AS NOM$ : END 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
5684 
otA1 
0088 
0F83 
BEOS 
053C 


CMS-DOS) 
1532 octets 
sm 

0000 9E7 
0000 367 
0000 CE7 
0000 667 
0000 FE7 
0000 967 
0000 2E7 
0000  cé7 
0000 5E7 
0000 F67 
0000 8E7 
0000 267 
0000 BE7 
0000 567 
0000 EE7 
0000 867 
0050 232 
62CD OEC 
8501 DIE 
FB47 BFD 
F900 9F5 
0183 65F 
2275 31A 
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0A80 
EB2C 
FAFF 
263A 
: 4326 
: 2680 
: 4646 
: C126 
0149 
c300 
3F00 
1E56 
A103 
37A1 
0188 
3826 
7S1E 
A600 
8A45 
0502 
: EB5F 
O2C: 0083 
02D: 807F 
O2E: 0902 
0288 
3889 
0238 
803D 
83C7 
2290 
1A88 
0026 
9080 
0802 
0802 
5Bc3 
7407 
F48B 
5333 
7404 
5057 
3c00 
SESF 
3800 
0000 
0000 
: 0000 
0000 
: 0000 
: 0000 
0000 
0000 
0000 
0000 
0000 
6976 
6966 











F2FF 
903c 
7422 
4501 
803F 
3F0D 
FF06 
cé05 
SE1F 
0001 
0053 
c706 
0138 
8501 
1E03 
8A05 
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26c6 
2075 
26c6 
7418 
2275 
7408 
0301 
0088 
SF5SA 
0020 
5152 
0102 
0603 
8EC0 
0201 
3406 
1F88 
0E09 
0802 
FF06 
0c03 
7458 
7534 
23FF 
0201 
0288 
0173 
29EB 
3E01 
0902 
02D1 
0120 
0090 
0603 
5F07 
DA80 
7406 
8BD3 
DA80 
EBF7 
8A05 
4746 
3531 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6420 
7370 
6400 


0500 
2780 
0500 
88DF 
0143 
891C 
4TE2 
0E03 
5858 
0000 
0657 
FFFF 
0274 
BEO5 


0502 
D7E8 
0226 
3A06 
0302 
E871 
88DA 
833€ 
0603 
E388 
0E03 
2F26 
2c90 
02E8 
0274 
E3FF 
EBOF 
cé06 
02A0 
5A59 
3F00 
43EB 
58C3 
3F00 
5BC3 
8804 
EBF3 
3234 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
6472 
6563 
OA7S 


91 


ACC 


A6B 


9F6 


08F 


A76 


E1F 


11F 
A9F 
41F 
D9F 
T1F 
09F 
A1F 
39F 
EF4 
ACB 
828 


050: 7361 
051: 6475 
052: 2070 
053: 2D32 
054: 7C20 
055: 5820 
056: 5D20 
057: OD0A 
058: 4360 
059: 7369 
05A: 7878 
058: 0A78 
05C: 7878 
05D: 7320 
O05E: 0000 
05F: 0000 
: 0000 
: 0000 
0000 
0000 
0000 
0000 









078: O4BE 
O7C: EB3D 
E38E 
4501 
: 053C 
0220 
: BETA 
: E805 
5c75 
1303 
368A 
2130 
0384 
F7E1 





203A 
5820 
3120 
2020 
205D 
6973 
7468 
2420 
7465 
2030 
ODOA 
7878 
6279 
2000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
546F 
7878 
7878 
ODOA 
2A2E 
BEC3 
218C 
C9E8 
3C3F 
9OFE 
3E12 
0384 
80F9 
0c03 
038A 
8900 
E8BE 
0238 
1E07 
E819 
1E03 
8838 
7512 
063C 
41A2 
EAFD 
D980 
4OFF 
0075 
O03FE 
750A 
21E8 
0333 


2020 
2035 
7C20 
3420 
2020 
6B3A 
2052 
2020 
7220 
2078 
240D 
7878 
7465 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0A0D 
7461 
7878 
2062 
242E 
2A00 
B44A 
0010 
88FD 
7405 
0612 
0300 
09c0 
0074 
E821 
CAB8 
02F7 
0142 
0603 
BF5F 
FE07 
0201 
268A 
268A 
7ATT 
1903 
8816 
7BFF 
00A1 
1E84 
c2cD 
BA6A 
3E90 
D28E 


39c 
011 


6A4 


ME 
EA9 
B16 


180 


951 
607 
730 
550 
312 
F60 
EC3 
893 
990 
988 
6ES 
LE6 
089 
Fé1 
E2E 
B8c 
9LA 


448 
080 
AE 


FFA 
DIE 
CFD 
D95 
cé 
AB9 


089: CF03 BB05 


088: 07BF 1A03 
O8C: 3E17 0301 
O8D: 03F7 2613 
O08E: BB0A O0E8 
O8F: 04B4 09CD 
090: 2100 0050 
091: 0657 1E56 
092: 2EC7 0681 
093: FF06 1703 
094: O0CD 2150 
095: 33DB ESEE 





OAC: B449 CD21 
OAD: 3100 5E1F 
OAE: 595B 58C3 
OAF: D6E8 6CFC 
080: FC5SE 5A59 
081: 19CD 215B 
082: 5BC3 0684 
083: C007 C350 
084: 

08: 
08 
087: 5351 5756 
OB8: ECO3 F34E 
089: 4602 28D2 
OBA: 028B 4600 
088: 0080 C230 
O8C: 837E 0000 
080: 0200 75DB 
OBE: 204E E2FA 
OBF: 5F59 SBC3 





00E8 
09cD 
E824 
7617 
03BE 
4201 
2184 
5351 
E803 
0500 
8448 
5706 
008€ 
FD0E 
0084 
cn21 
161c 
83FA 
068 

E12E 
1503 
0A00 
BAO0 
7E02 
8801 
0088 
0084 
7237 
2A80 
8846 
BE30 
BF61 
BF1E 
E82C 
C758 
5833 
5F07 
5152 
03F1 
C353 
8AD8 
2FCD 
5352 
1ACD 
5051 
2159 
5552 
B90A 
F7F1 
F7F1 
8814 
7SE1 
8BcB 
585A 


680: 

21E 
0083 
A115 
4c04 
BA3D 
4CCD 
5255 
0150 
002€ 


8BEC 
D8BE 
078F 
4E8B 
7210 
002€ 
0074 
0584 
A181 
2EF7 
OE1F 
8846 
BEED 
00BA 


4EB9 
A015 
3E1E 
008€ 
00E8 
04E8 
00E8 
FFB4 
5807 
DBE8 
5D5A 
5688 
E877 
5084 
88c3 
218C 
1E8€ 
211F 
E837 
58c3 
5088 
0088 
8946 
8946 
4E4B 
837E 
cé04 
5D5E 


787 
613 


EB7 
c46 
A9C 
A72 
59F 
186 
DBB 
BAB 
AGE 
875 
81F 
9F2 
768 
4AF 
170 
pc2 
C7A 
9ED 
7E9 
636 
6FD 


332 
227 
E99 
cas 
988 
7AC 
64D 
4EC 
SEF 
404 
338 
21C 
FA3 
EDA 
c96 
cs4 
B83 
958 
87E 
5F0 
3E8 
0A3 
F0E 
D44 
AEC 


633 
544 
531 
D77 
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